home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 2 / LSD and 17bit Compendium Deluxe - Volume II.iso / a / prog / asmsrc / phagexsources.lha / source / DOSFileRunner.s < prev    next >
Text File  |  1993-08-20  |  1KB  |  77 lines
  1.     Opt    c-
  2.     Section    "DOSFileRunner",Code_C
  3.     
  4. OldOpenLibrary    Equ    $fffffe68
  5. FreeRaster    Equ    $fffffe0e
  6. CloseLibrary    Equ    $fffffe62
  7. RemakeDisplay    Equ    $fffffe80
  8. Execute    Equ    $ffffff22
  9.  
  10. Start    Movem.l    d0-d7/a0-a6,-(sp)
  11.     ;Bra    GetFile
  12.     
  13.     Move.l    4,a6
  14.     Move.l    $9c(a6),d0
  15.     Lea    GFXBase(pc),a5
  16.     Move.l    d0,(a5)
  17.     Lea    IntName(pc),a1
  18.     Jsr    OldOpenLibrary(a6)
  19.     Lea    IntBase(pc),a5
  20.     Move.l    d0,(a5)
  21.     Move.l    d0,a0
  22.     Move.l    $38(a0),a1
  23.     Move.l    $58(a1),a0
  24.     Cmp.b    #2,5(a0)
  25.     Bne    CloseInt
  26.     Move.b    #1,5(a0)
  27.     Move.w    12(a1),d0
  28.     Move.w    14(a1),d1
  29.     Move.l    $c4(a1),a0
  30.     Move.l    GFXBase(pc),a6
  31.     Jsr    FreeRaster(a6)
  32.     Move.l    IntBase(pc),a6
  33.     Jsr    RemakeDisplay(a6)
  34.     
  35. CloseInt    Move.l    IntBase(pc),a1
  36.     Move.l    4,a6
  37.     Jsr    CloseLibrary(a6)
  38.     
  39. GetFile    Move.l    4,a6
  40.     Lea    DOSName(pc),a1
  41.     Jsr    OldOpenLibrary(a6)
  42.     Move.l    d0,a6
  43.     Lea    FileName(pc),a1
  44.     Move.l    a1,d1
  45.     Moveq    #0,d2
  46.     Moveq    #0,d3
  47.     Jsr    Execute(a6)
  48.     Movem.l    (sp)+,d0-d7/a0-a6
  49.     Moveq    #0,d0
  50.     Rts
  51.  
  52. DOSName    Dc.b    "dos.library",0
  53. IntName    Dc.b    "intuition.library",0
  54.     Even
  55.  
  56. GFXBase    Dc.l    0
  57. IntBase    Dc.l    0
  58.  
  59. FileName    Dc.b    "cli",0
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.  
  76.  
  77.